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1 ¢ 
38 : Version: *v04-000' 
ied Cee eee R AERA ERATE EREREEREEEE 
Ce t 
9096 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0 Cx DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
9008 Ce ALL RIGHTS RESERVED. * 
i 
0010 C®* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
O08 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9015 Ce TRANSFERRED. e 
® 
0017  C® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9019 cs CORPORATION. * 
® 
S054 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
a088 ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
0095 (FELLAS ONE, A ANOLE DARE RAI IE A LN ENE AD 
0026 
0027 «CC ALCOA ENGINEERING STANDARDS == 32.6.7.1 MAY, 1972 
0028 =i TESTS OF $TANDARD FORTRAN (ANSI X3.9-1966) 
0031 PROGRAM UETFORTO1 
003 INTEGER A(10), B(5,5), (4.4.4), $ 
003 Ceeene 
0034 IPU= 
0035 1cu=5 
0036 Ceeeee 
0037 1SwW= 1 
0038 WRITE (IPU,376) 
0039 376 FORMAT C11. 33% 39H ALCOA ENGINEERING STANDARD <= 32.6.7.1///) 
0040 WRITE (1PU,3785 
0041 378 FORMAT (20H BEGIN TEST 3.5.3.3 ) 
0048 DO 9 I=1,10 
004 9 A(I)= 0 
9044 DO 81 J=1,5 
s DO 81 I=1,5 
0046 81 B(1,J)= 0 
004 DO K=1,4 
8 DO 20 J=1,4 
9 DO 20 [=1,4 
50 20 CI,J,k)=6 
51 S=1 
3 1 READ( I1CU,11 ) I, ACI) 
33 IF ¢ A(7?) .NE. 7 5 GO TO 30 
= 
| a READ( ICU,11 ) i,J, BCI,J ) 
36 IF 54°35 NE. 8 5 GO fO 40 
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UETFORTO1 
115 41 _FORMAT (19H0ERROR IN STATEMENT,]1 
118 11H 2043)) 
11 60 fo 
118 50 WRITE ty .21) $,C 
119 51 FORMAT (19HOERROR IN STATEMENT, 
120 11H | )») 
121 60 fo 
1 ¢ 11 FORMAT( 3912 ) 
01 END 
PROGRAM SECTIONS 
Name Bytes 
0 SCODE 13% 
1 SPDATA 27 
2 SLOCAL 484 
Total Space Allocated 2255 
ENTRY POINTS 
Address Type Name 
0-00000000 UETFORTO1 
VARIABLES 
Address Type Name Address 
-0000019C I*4 | -00000194 
-O00001A0 I*4 J -000001A4 
-000001B0 I*4 N -0000018C 
ARRAYS 
Address Type Name Bytes 
599000008 tf $8 
-0000008C I*4 C 256 
LABELS 
Address’ Label Address’ Label 
0-000000A3 1 0-000000E1 H 
we 7 et 


14 
+ 20 


ee 15 
1-00000049 21° 


' 


12/ 9H ARRAY C ,(/ 


Attributes 


Type 
I*4 


1*4 
I*4 § 


Dimensicns 


(1 
(5, 5) 
(4, 4, 


ee 
ou 


a) 


Address Label 
0-0000012E 3 
rer 


wt 18 
0-0000053A 3 


NOSHR NO 


w$ep=1986 20:38:38 


RD NOWRT LONG 
RD NOWRT LONG 


Ss EXE 
SHR NOEXE 
EXE RD WRT LONG 


Address 


m4 4 94 
-000001A8 


Type Name 


I*4 IPU 
I*e4 L 


Address Label 


rt 4 
1-0000010E 11° 

ee 7 
1-00000084 ${° 


Address 


g-90000505 
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Address 


ae 4 
-000001AC 


Type Name 


I*4 ISW 
I*4 


Label 
5 


8 gatosie 38 


Address Label 


UETFORTO1 
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/CHECK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG=(NOSYMBOLS$, TRACEBACK) 
/STANDARD=(NOSYNTAX NOSOURCE FORM) | 
/SHOW=(NOPREPROCESSOR,NOINCLODE ,M 
/F77 /NOG_FLOATING /14 COPTIAIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


1B-$e0-1964 Q1:55:56  VAKGT1 FORTRAN V5-4256 age 


\' et ee $8 *t 3 
201 mess 5 202, 0-000003CA 3 0-000004FC 204 


COMPILATION STATISTICS 


un Time 4.58 seconds 
le Time: 11.83 seconds 
Page Faults: 156 
Dynamic Memory: 197 


T CORPORATION 


mnaiy AH-BT13A-SE 
4) PROPRIETARY 
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